﻿Public Class settings
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        My.Settings.displayos = CheckBox2.Checked
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        My.Settings.displayname = CheckBox1.Checked

    End Sub
    Private Sub settings_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CheckBox1.Checked = My.Settings.displayname
        If My.Settings.displayname Then
            Label1.Text = My.User.Name
        Else
            Label1.Text = "noname"
        End If
    End Sub
End Class